If CInt(Left(Control.versionInfo, InStr(Control.versionInfo,"."))) < 9 Then
Msgbox "Be aware that this object uses Windows Media Player 9 extensively." & vbNewLine & "You are running version " & Control.versionInfo & vbNewLine & "Please consider upgrading or the object may not work properly.", vbOKOnly + vbExclamation, "Version warning ..."
Else
If Control.settings.MediaAccessRights <> "full" Then
If (DesktopX.ScriptObject("lstMediaType").Control.Text = "Audio CD") Or (DesktopX.ScriptObject("lstMediaType").Control.Text = "DVD Movie") Then
If DesktopX.ScriptObject("lstPlaylist").Control.Listindex - 1 = CdromNum Then
DesktopX.ScriptObject("lstMediaType").ResetList
End If
End If
End Sub
Sub Object_OnScriptExit
Object.KillTimer 1
End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>215</EditorLeft><EditorTop>40</EditorTop><EditorRight>1201</EditorRight><EditorBottom>697</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{6BF52A52-394A-11D3-B153-00C04F79FAA6}</ControlCLSID><ControlObjWidth>190</ControlObjWidth><ControlObjHeight>143</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>